    0 q=36874:pokeq+5,30:print"{clr}{blu}{rvon}";:fort=1to22:print" ";:next
    1 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}schlowski & boray 2006":gosub68:gosub34:goto15
    2 g=g-fa:d=d+1:gosub80:ifw>0thenc=0:gosub66
    3 gosub28:fort=1to5:gosub77:gosub32:next:gosub45:fori=1to5:o%(i)=0:next
    4 e=y+int(rnd(1)*42)
    5 fort=1to5:h%(t)=peek(e+t):a=h%(t):gosub77:gosub33:gosub40:next
    6 gosub82:print"{blu}{rvon} 1-5 toggle  spc=deal{rvof}";:poke198,0
    7 geta$:ifa$=""then7
    8 gosub79:ifa$=" "then12
    9 h=val(a$):if(h=0)or(h>5)then7
   10 o%(h)=1-o%(h):a=h%(h):t=h:ifo%(h)=0thengosub33:gosub40:goto7
   11 gosub32:goto7
   12 e=e+6:fori=1to5:ifo%(i)=1thenh%(i)=peek(e):e=e+1
   13 next:gosub45:fort=1to5:ifo%(t)=1thena=h%(t):gosub77:gosub33:gosub40
   14 next:gosub47:gosub49:ifw>0thenc=2:gosub74:p%(w,1)=p%(w,1)+1:gosub26:gosub66
   15 gosub24:ifw=0thengosub76
   16 gosub82:print"{blu}{rvon}d=disp b=bet spc=deal{rvof}";:poke198,0
   17 geta$:ifa$=""then17
   18 gosub79:iffa<9andg>fathenifa$="b"thenfa=fa+1:gosub80:goto17
   19 on-(a$=" ")goto22:on-(a$<>"d")goto17:z=1-z:ifw>0thenc=0:gosub66
   20 gosub26:ifw>0thenc=2:gosub66
   21 goto17
   22 ifg>0then2
   23 z=1:gosub26:print"{down}{down}loser!":gosub76:end
   24 ifw>0thenforg=gtog+p%(w,0)*fa:gosub80:next:g=g-1
   25 fa=1:gosub80:return
   26 poke214,12:print"{blk}":fort=1to9
   27 print,"{rght}{rght}{rght}{rght}{rght}"right$("     "+str$(p%(t,z)),5):next:return
   28 print"{home}{grn}{down}{down}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} "e$;
   29 printe$e$e$;
   30 printe$"{CBM-Z}{$60}{$60}{$60}{CBM-E}{$60}{$60}{$60}{CBM-E}{$60}{$60}{$60}{CBM-E}{$60}{$60}{$60}{CBM-E}{$60}{$60}{$60}{CBM-X} {blu}  1   2   3   4   5  "
   31 return
   32 print"{home}{down}{down}{down}{grn}"spc(t*4-3)"{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}":return
   33 print"{home}{down}{down}{down}{grn}"spc(t*4-3)"   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   ":return
   34 print"{blk}{up}{up}{up}    winning table":fort=1to22:print"-";:next
   35 print" 1 pair (jqka) ="," 2 pairs (any) ="," 3 of a kind   ="
   36 print" straight      ="," flush         ="," full house    ="
   37 print" 4 of a kind   ="," str. flush    ="," royal flush   ="
   38 poke8185,160:poke38905,6
   39 fort=217to227:poket,158:poket+12,159:next:gosub26:return
   40 cc=a/16:c$=s$(cc)
   41 k=2+aand15:ifk<11thenx$=mid$(str$(k),2):o$=c$+x$:u$=x$+c$
   42 ifk>10thenk=k-11:o$=c$+k$(k):u$=k$(k)+c$
   43 iflen(o$)<3theno$=" "+o$
   44 print"{home}{down}{down}{down}"f$(cc)spc(t*4-3)o$:print"{home}{down}{down}{down}{down}{down}{down}{down}"f$(cc)spc(t*4-3)u$:return
   45 k1=rnd(1)*52+y:fori=0to75:k2=rnd(1)*52+y:m=peek(k1):pokek1,peek(k2):pokek2,m:k1=k2
   46 next:return
   47 fori=1to4:fort=i+1to5:if(h%(i)and15)>(h%(t)and15)thenm=h%(i):h%(i)=h%(t):h%(t)=m
   48 next:next:return
   49 v=0:x=0:f=0:s=0:r=0:w=0:fori=1to5:k%(i,1)=h%(i)and15:k%(i,2)=h%(i)/16:next
   50 fort=1to4:p=1:a=k%(t,1):fori=t+1to5:ifk%(i,1)>-1thenifk%(i,1)=athenp=p+1:k%(i,1)=-1
   51 next:ifp>1thenifa>8thenp=p+128
   52 ifp>1thenx=p:ifv=0thenv=p:x=0
   53 next:a=k%(1,1):s=1:fori=2to5:a=a+1:ifk%(i,1)<>athens=s-1
   54 next:ifs<0thens=0
   55 a=k%(1,2):f=1:fori=2to5:ifk%(i,2)<>athenf=f-1
   56 next:iff<0thenf=0
   57 ifs=1thenifk%(5,1)=12thenr=1
   58 if(v>0)and(x>0)thenw=2:if((vand127)=3)or((xand127)=3)thenw=6:goto63
   59 if(v<3)and(x=0)then63
   60 ifw=0andv=130thenw=1:goto63
   61 v=vand127:ifv=3thenw=3
   62 ifv=4thenw=7
   63 iff=0thenifs=1thenw=4
   64 iff=1thenw=5:ifs=1thenw=8:ifr=1thenw=9
   65 return
   66 l=(w+12)*22:n=38400+l:o=7680+l:b=128:ifc=0thenb=-b
   67 fori=0to21:poken+i,c:pokeo+i,peek(o+i)+b:next:return
   68 dims$(3):s$(0)="X":s$(1)="A":s$(2)="S":s$(3)="Z":dimf$(3):f$(0)="{blk}"
   69 f$(1)="{blk}":f$(2)="{red}":f$(3)="{red}":dimk$(3):k$(0)="j":k$(1)="q":k$(2)="k"
   70 k$(3)="a":y=828:fori=0to3:fort=0to12:pokey+i*13+t,i*16+t:next:next
   71 i=rnd(-ti):fa=1:dimh%(5):dimk%(5,2):dimo%(5):g=10
   72 dimp%(9,1):p%(1,0)=1:p%(2,0)=2:p%(3,0)=4:p%(4,0)=6:p%(5,0)=8
   73 p%(6,0)=10:p%(7,0)=15:p%(8,0)=25:p%(9,0)=50:e$="]   ]   ]   ]   ]   ] "
   74 forj=15to0step-3:pokeq+4,j:forr=190to252step10:pokeq+1,r:foru=1to19:nextu,r,j
   75 pokeq+1,0:return
   76 forj=15to8step-.1:pokeq+4,j:pokeq,j*15:next:return
   77 pokeq+3,253:forj=0to5step.4+rnd(1)/2:pokeq+4,j:next
   78 forh=0to1:pokeq+3,236+h*3:forj=13+2*hto0step-4:pokeq+4,j:nextj,h:pokeq+3,0:return
   79 pokeq+4,15:pokeq,250:forj=1to2:next:pokeq,0:return
   80 ifg>mothenmo=g
   81 print"{home}{blu}{rvon}game"d,"top:"mo:print"{blk} bet"fa"  coins:"g"{left} ":return
   82 poke214,21:print:return
